home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #3 & #4 / Amiga Plus CD - 1995 - No. 3 and 4.iso / pd / packer / archandler / install < prev    next >
Text File  |  1995-07-20  |  42KB  |  1,356 lines
  1. ;;$VER: Install 37.30 (1.4.95)
  2. ;;
  3. ;;  $Filename: Install $
  4. ;;  $Version: 37.30 $
  5. ;;  $Date: 1.4.95 $
  6. ;;  $Creation: 1.6.94 $
  7. ;;
  8. ;;  Installer script to install ARCHandler.
  9. ;;
  10. ;;  © Copyright 1994, 1995 Rafael D'Halleweyn, all rights reserved
  11. ;;
  12.  
  13. (set archandler-src "ARCHandler")
  14. (set archandlericon-src "ARCHandler.info")
  15. (set startarc-src "C/StartARC")
  16. (set startarcicon-src "C/StartARC.info")
  17. (set arcfiles-src "ARCFiles")
  18. (set fromarc-src "C/FromARC")
  19. (set toarc-src "C/ToARC")
  20. (set catalog-src "Catalogs/")
  21. (set help-src "Help/")
  22. (set version "2.0a")
  23.  
  24. (set @default-dest "SYS:Tools")
  25. (set @default-tempdir "T:")
  26. (set @default-support-dest "C:")
  27.  
  28. ; Get the language
  29. (run 'C/PrefLanguage')
  30. (set pref-language (getenv "Language"))
  31.  
  32. ;================================================================================
  33. ; English strings
  34.  
  35. (set #bad-kick
  36.   (cat "You must have Kickstart 2.04 or higher installed to use the ARCHandler!")
  37. )
  38.  
  39. (set #install
  40.   (cat "\nARCHandler installation\n\n\n"
  41.          "This script installs ARCHandler " version "\n"
  42.          "on your Amiga.\n\n\n"
  43.          "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  44.          "All rights reserved"
  45.   )
  46. )
  47.  
  48. (set #update
  49.   (cat "\nARCHandler installation\n\n\n"
  50.          "This script updates ARCHandler to\n"
  51.          "version " version ".\n\n\n"
  52.          "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  53.          "All rights reserved"
  54.   )
  55. )
  56.  
  57. (set #archandler-dest
  58.   (cat "Where do you want to install ARCHandler?")
  59. )
  60.  
  61. (set #archandler-dest-help
  62.   (cat "Select the directory where you want ARCHandler to be installed. "
  63.        "The program and some other files will be copied to this directory. "
  64.        "Don't install ARCHandler in the WbStartup drawer (of your system "
  65.        "partition). You will be asked later if you want to start ARCHandler "
  66.        "when the Workbench is started.\n\n"
  67.   )
  68. )
  69.  
  70. (set #ask-parts
  71.   (cat "Select the parts that you want to install:\n"
  72.        "(Press `Help...' for a full description.)"
  73.   )
  74. )
  75.  
  76. (set #archandler-part "ARCHandler")
  77. (set #wbstartup-part "WbStartup installation")
  78. (set #catalogs-part "Catalogs")
  79. (set #help-part "Help files")
  80. (set #pictures-part "Help Pictures")
  81. (set #icons-part "Default icons")
  82. (set #support-part "Support commands")
  83. (set #delete1x-part "Delete 1.x ARCHandler")
  84.  
  85. (set #ask-parts-help
  86.   (cat "You should select those parts that you want to install:\n\n"
  87.        "ARCHandler: this is the main program. If you already have ARCHandler "
  88.        "installed, this script will only copy the progam if you have an older "
  89.        "version;\n\n"
  90.        "WbStartup installation: this will install a small program in the "
  91.        "WbStartup drawer (of your system partition). This program will start "
  92.        "ARCHandler whenever the Workbench is started (ie. when you turn on your "
  93.        "computer);\n\n"
  94.        "Catalogs: these are the translations of ARCHandler in different languages. "
  95.        "You will be asked which languages you want to install;\n\n"
  96.        "Help files: these are the help files in different languages. If you want to "
  97.        "use the online help, you must install these files! You will be asked which "
  98.        "languages you want to install;\n\n"
  99.        "Help Pictures: these pictures can be viewed from the help files. They can "
  100.        "only be used if you have MultiView (ie. Workbench 3.0 or newer);\n\n"
  101.        "Default icons: these icons are used by ARCHandler. You don't have to install "
  102.        "these icons, you can create your own once ARCHandler is running. If you do "
  103.        "install these icons it is still possible to change them. When you are "
  104.        "updating ARCHandler you shouldn't install these icons, they will overwrite "
  105.        "the icons you are already using;\n\n"
  106.        "Support commands: these are two support commands for ARCHandler: ToARC and "
  107.        "FromARC. These commands can be used to change the current directory of a "
  108.        "Shell to and from the same directory on the ARCHandler volume. These commands "
  109.        "should only be installed if you want to use the ARCHandler filesystem from a "
  110.        "Shell;\n\n"
  111.        "Delete 1.x ARCHandler: this will try to delete all the files that where "
  112.        "installed by the 1.0 or 1.0a version of ARCHandler.\n\n"
  113.        "The Install script tries to be smart about the default parts that it selects. "
  114.        "Normally you shouldn't change those settings.\n\n"
  115.   )
  116. )
  117.  
  118. (set #ask-tempdir "Please select a drawer to store temporary files:")
  119.  
  120. (set #ask-tempdir-help
  121.   (cat "For the ARCHandler to work correctly it has to have a place to store "
  122.        "its temporary files. All the files that are extracted from the "
  123.        "archives are placed in this drawer. This drawer should be large enough "
  124.        "to hold all those files. If you have lots of RAM you should use a "
  125.        "drawer on the 'Ram Disk', otherwise use a drawer on disk.\n\n"
  126.   )
  127. )
  128.  
  129. (set #ask-lhacommand "Please select the path to the 'LhA' command:")
  130.  
  131. (set #ask-lhacommand-help
  132.   (cat "For the ARCHandler to work correctly it has to known where "
  133.        "it can find the 'LhA' command. If you want to use a resident "
  134.        "'LhA' (=faster ARCHandler) use an empty 'Current Drawer' field "
  135.        "and make sure 'LhA' is resident.\n\n"
  136.   )
  137. )
  138.  
  139. (set #which-catalog-language
  140.   (cat "Which languages do you want to install?")
  141. )
  142.  
  143. (set #which-catalog-language-help
  144.   (cat "ARCHandler can be used in different languages. Select all the languages "
  145.        "that you want to use ARCHandler in.\n\n"
  146.   )
  147. )
  148.  
  149. (set #which-help-language
  150.   (cat "Which help files do you want to install?")
  151. )
  152.  
  153. (set #which-help-language-help
  154.   (cat "The help can be provided in different languages. Select those languages "
  155.        "you want help for.\n\n"
  156.   )
  157. )
  158.  
  159. (set #support-dest
  160.   (cat "Where do you want to install the support commands FromARC and ToARC?")
  161. )
  162.  
  163. (set #support-help
  164.   (cat "The FromARC and ToARC commands allow you to change the current directory "
  165.        "of a shell.\n\n"
  166.   )
  167. )
  168.  
  169. (set #shareware
  170.   (cat "ARCHandler is Shareware!\nDon't forget to register!")
  171. )
  172.  
  173.  
  174. ;================================================================================
  175. ; French strings
  176.  
  177. (if (= pref-language "français")
  178.   (
  179.     (set #bad-kick
  180.       (cat "Vous devez avoir un Kickstart 2.04  ou supérieur pour installer ARCHandler!")
  181.     )
  182.  
  183.     (set #install
  184.       (cat "\nARCHandler installation\n\n\n"
  185.            "Ce script installe ARCHandler 2.0\n"
  186.            "dans votre Amiga.\n\n\n"
  187.            "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  188.            "Tous droits réservés"
  189.       )
  190.     )
  191.  
  192.     (set #update
  193.       (cat "\nARCHandler installation\n\n\n"
  194.            "Ce script met à jour ARCHandler à la\n"
  195.            "version 2.0.\n\n\n"
  196.            "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  197.            "Tous droits réservés"
  198.       )
  199.     )
  200.  
  201.     (set #archandler-dest
  202.       (cat "Ou voulez-vous installer ARCHandler?")
  203.     )
  204.  
  205.     (set #archandler-dest-help
  206.       (cat "Sélectionné le répertoire ou vous voulez qu'ARCHandler soit installé. "
  207.            "Le programe et les autres fichiers vont être copié dans ce répertoire. "
  208.            "N'installer pas ARCHandler dans le tirroir WbStartup (de  votre partition "
  209.            "systéme). Vous allez être interroger plus tard si vous souhaité démmarrer "
  210.            "ARCHandler lorsque votre atelier sera chargé.\n\n"
  211.       )
  212.     )
  213.  
  214.     (set #ask-parts
  215.       (cat "Sélectionné les parties que vous vouler pour l'installation:\n"
  216.            "(Presser `Help...' pour une déscription compléte.)"
  217.       )
  218.     )
  219.  
  220.     (set #archandler-part "ARCHandler")
  221.     (set #wbstartup-part "Installation dans WbStartup")
  222.     (set #catalogs-part "Catalogues")
  223.     (set #help-part "Fichiers d'aides")
  224.     (set #pictures-part "Images d'aides")
  225.     (set #icons-part "Icones défauts")
  226.     (set #support-part "Commandes supportées")
  227.     (set #delete1x-part "Effacement d'ARCHandler 1.x")
  228.  
  229.     (set #ask-parts-help
  230.       (cat "Vous pouvez sélectionner les parties que vous souhaitez installer:\n\n"
  231.            "ARCHandler: c'est le programme principal. Si vous avez déja ARCHandler "
  232.            "d'installé, cette procédure va seulement copier le programme si vous avez "
  233.            "une vieille version;\n\n"
  234.            "Installation WbStartup: Ceci peut installer un petit programme dans le "
  235.            "tirroir WbStartup (de votre partition systéme). Ce programme va lancer "
  236.            "ARCHandler dés le chargement de l'atelier (ie. quand vous mettez en marche "
  237.            "votre ordinateur);\n\n"
  238.            "Catalogues: Ce sont les traductions d'ARCHandler dans de différentes langues. "
  239.            "Vous pouvez demander la langue que vous voulez installer;\n\n"
  240.            "Fichiers d'Aides: Ce sont les fichiers d'Aides dans de différentes langues. "
  241.            "Si vous souhaitez utiliser l'aide en ligne, vous devez installer ce fichiers! Vous "
  242.            "allez être questionné pour la langue que vous désirez installer;\n\n"
  243.            "Images d'Aides: Ces images peuvent être visionnées des fichiers d'aides. "
  244.            "Elles peuvent seulement être utilisé si vous possédez MultiView (ie. Workbench 3.0 ou plus);\n\n"
  245.            "Icones par Défauts: Ces icones peuvent être utilisés par ARCHandler. Vous n'avez pas à "
  246.            "installer ces icones il est possible d'en changer. Quand vous aurez mis à jour "
  247.            "ARCHandler vous ne devez pas installer ces icones, ils vont remplacer les icones "
  248.            "que vous êtes en train d'utiliser;\n\n"
  249.            "Commandes de support: Elles sont deux commandes de support pour ARCHandler: "
  250.            "ToArc et FromArc. Ces commandes peuvent être utiliser pour changer de répertoire courant "
  251.            "du Shell de et pour le même répertoire du volume ARCHandler. Ces commandes sont seulement a "
  252.            "installées si vous voulez utiliser ARCHandler à partir du Shell;\n\n"
  253.            "Effacer ARCHandler 1.x: Ceci va effacer tous les fichiers qui ont étaient "
  254.            "installés par la version 1.0 ou 1.0a d'ARCHandler.\n\n"
  255.            "La procédure d'installation choisi pour être bien a propos la partie "
  256.            "des défauts a sélectionner. "
  257.            "Normalement vous n'avez pas à changer les réglages.\n\n"
  258.       )
  259.     )
  260.  
  261.     (set #ask-tempdir "S'il vous plait sélectionner le tirroir pour les fichiers temporaires de réserves:")
  262.  
  263.     (set #ask-tempdir-help
  264.       (cat "Pour que ARCHandler fonctionne correctement il doit placé en réserve "
  265.            "des fichiers temporaires. Tous les fichiers sont décompatés de "
  266.            "l'archive et sont placés dans ce répertoire. Ce tirroir doit être gros "
  267.            "pour contenir tous les fichiers. Si vous avez suffissement de mémoire RAM "
  268.            "vous devez utiliser le tirroir 'Ram Disk', autrement utilisé un tirroir sur un disque.\n\n"
  269.       )
  270.     )
  271.  
  272.     (set #ask-lhacommand "S'il vous plait sélectionné le chemin de la commande 'LhA':")
  273.  
  274.     (set #ask-lhacommand-help
  275.       (cat "Pour que ARCHandler fonctionne correctement il doit connatitre ou "
  276.            "il doit pouvoir trouver la commande 'LhA'. Si vous voulez utiliser"
  277.            "'LhA' en résident (=rapide ARCHandler) utiliser un champ vide "
  278.            "'Tirroir courant' et vous assurez que 'LhA' est résidant.\n\n"
  279.       )
  280.     )
  281.  
  282.     (set #which-catalog-language
  283.       (cat "Quel langue vous souhaitez installer?")
  284.     )
  285.  
  286.     (set #which-catalog-language-help
  287.       (cat "ARCHandler peut être utiliser dans de differents langues. Sélectionné "
  288.            "tous les langages que vous voulez utiliser avec ARCHandler.\n\n"
  289.       )
  290.     )
  291.  
  292.     (set #which-help-language
  293.       (cat "Quel fichier d'aide vous souhaitez installer?")
  294.     )
  295.  
  296.     (set #which-help-language-help
  297.       (cat "L'aide peut être disponible dans des langues differentes."
  298.            "Sélectionné les langues que vous voulez pour l'aide.\n\n"
  299.       )
  300.     )
  301.  
  302.     (set #support-dest
  303.       (cat "Ou vous souhaitez installer les commandes supports FromARC et ToARC?")
  304.     )
  305.  
  306.     (set #support-help
  307.       (cat "Les commandes FromARC et ToARC vous permettent de changer de répertoire "
  308.            "du shell.\n\n"
  309.       )
  310.     )
  311.  
  312.     (set #shareware
  313.       (cat "ARCHandler est un Shareware!\nNe pas oublier de vous enregistrez!")
  314.     )
  315.   )
  316. )
  317.  
  318. ;================================================================================
  319. ; Dutch strings
  320.  
  321. (if (= pref-language "nederlands")
  322.   (
  323.     (set #bad-kick
  324.       (cat "U hebt Kickstart 2.04 of hoger nodig om om ARCHandler te kunnen gebruiken!")
  325.     )
  326.  
  327.     (set #install
  328.       (cat "\nARCHandler installatie\n\n\n"
  329.              "Dit script installeert ARCHandler " version "\n"
  330.              "op uw Amiga.\n\n\n"
  331.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  332.              "Alle rechten voorbehouden"
  333.       )
  334.     )
  335.  
  336.     (set #update
  337.       (cat "\nARCHandler installatie\n\n\n"
  338.              "Dit script werkt ARCHandler bij\n"
  339.              "tot versie " version ".\n\n\n"
  340.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  341.              "Alle rechten voorbehouden"
  342.       )
  343.     )
  344.  
  345.     (set #archandler-dest
  346.       (cat "Waar wilt u ARCHandler installeren?")
  347.     )
  348.  
  349.     (set #archandler-dest-help
  350.       (cat "Selecteer de lade waar u ARCHandler wilt geïnstalleerd hebben. Het "
  351.            "programma en enkele andere bestanden zullen naar deze lade gekopieerd "
  352.            "worden. Instaleer ARCHandler niet in de WbStartup lade (van uw "
  353.            "systeem partitie). U zult later gevraagd worden of u ARCHandler "
  354.            "automatisch gestart wilt hebben wanneer de Workbench gestart wordt.\n\n"
  355.       )
  356.     )
  357.  
  358.     (set #ask-parts
  359.       (cat "Selecteer de delen die u wil installeren:\n"
  360.            "(Druk op `Help...' voor een volledige beschrijving.)"
  361.       )
  362.     )
  363.  
  364.     (set #archandler-part "ARCHandler")
  365.     (set #wbstartup-part  "WbStartup installatie")
  366.     (set #catalogs-part   "Catalogen")
  367.     (set #help-part       "Hulp bestanden")
  368.     (set #pictures-part   "Hulp Tekeningen")
  369.     (set #icons-part      "Standaard iconen")
  370.     (set #support-part    "Extra commando's")
  371.     (set #delete1x-part   "Verwijder 1.x ARCHandler")
  372.  
  373.     (set #ask-parts-help
  374.       (cat "U moet die delen kiezen die u will installeren:\n\n"
  375.            "ARCHandler: dit is het hoofd programma. Indien u ARCHandler al eerder "
  376.            "geïnstalleerd hebt, zal dit script het programma enkel kopiëren als u "
  377.            "een oudere versie heeft;\n\n"
  378.            "WbStartup installatie: dit zal een klein programmaatje in de WbStartup "
  379.            "lade (van uw systeem partitie) installeren. Dit programmaatje zal "
  380.            "ARCHandler opstarten wanneer de Workbench gestart wordt (dus wanneer u "
  381.            "uw computer aanzet);\n\n"
  382.            "Catalogen: dit zijn de vertalingen van ARCHandler in verschillende talen. "
  383.            "U zult gevraagd worden welke talen geïnstalleerd moeten worden;\n\n"
  384.            "Hulp bestanden: dit zijn de hulp bestanden in verschillende talen. Als "
  385.            "u gebruikt wilt maken van de hulp vanuit het programma, moet u deze "
  386.            "bestanden installeren! U zult gevraagd worden welke talen geïnstalleerd "
  387.            "moeten worden;\n\n"
  388.            "Hulp Tekeningen: deze tekeningen kunnen bekeken worden vanuit de hulp "
  389.            "bestanden. Ze kunnen enkel gebruikt worden als u MultiView heeft (dus "
  390.            "Workbench 3.0 of nieuwer);\n\n"
  391.            "Standaard iconen: deze iconen worden gebruikt door ARCHandler. U hoeft "
  392.            "deze iconen niet te installeren, u kunt uw eigen iconen creëren wanneer "
  393.            "ARCHandler opgestart is. Als u toch deze iconen installeerd is het nog "
  394.            "steeds mogelijk om ze te veranderen. Wanneer u een nieuwe versie van "
  395.            "ARCHandler installeerd dan moet u deze iconen niet installeren, omdat "
  396.            "daarbij uw eigen iconen verloren gaan;\n\n"
  397.            "Extra commando's: dit zijn twee commando's: ToARC and FromARC. Ze kunnen "
  398.            "gebruikt worden om de 'current directory' van een Shell te veranderen "
  399.            "naar en van dezelfde directory op het ARCHandler volume. Deze commando's "
  400.            "moeten alleen maar geïnstalleerd moeten worden als u het ARCHandler "
  401.            "bestandensysteem vanuit een Shell wenst te gebruiken.\n\n"
  402.            "Verwijder 1.x ARCHandler: dit zal proberen om alle bestanden die door "
  403.            "versie 1.0 of 1.0a geïnstalleerd werden te verwijderen.\n\n"
  404.            "Het installatie script probeert zelf te selecteren welke delen "
  405.            "geïnstallerd moeten worden. Waarschijnlijk hoeft u hier niks meer aan te "
  406.            "veranderen.\n\n"
  407.       )
  408.     )
  409.  
  410.     (set #ask-tempdir "Kies een lade voor de tijdelijke bestanden:")
  411.  
  412.     (set #ask-tempdir-help
  413.       (cat "Opdat ARCHandler correct zou kunnen werken, heeft het een plaats nodig "
  414.            "om zijn tijdelijke bestanden te bewaren. Al de bestanden die uit een "
  415.            "archief worden gehaald worden in deze lade geplaatst. Deze lade moet "
  416.            "groot genoeg zijn om alle deze bestanden te bevatten. Als u voldoende "
  417.            "vrij geheugen hebt, kunt u het best 'Ram Disk' gebruiken, anders is "
  418.            "een lade op schijf beter.\n\n")
  419.     )
  420.  
  421.     (set #ask-lhacommand "Selecteer het volledige pad naar het 'LhA' commando:")
  422.  
  423.     (set #ask-lhacommand-help
  424.       (cat "Opdat ARCHandler correct zou kunnen werken, moet het weten waar het "
  425.            "het 'Lha' commando kan vinden. Als u een residente 'LhA' wilt "
  426.            "gebruiken (= snellere ARCHandler) gebruik dan een leeg 'Geselecteerde "
  427.            "lade' veld en zorg dat 'LhA' resident is.\n\n")
  428.     )
  429.  
  430.     (set #which-catalog-language
  431.       (cat "Welke talen wilt u installeren?")
  432.     )
  433.  
  434.     (set #which-catalog-language-help
  435.       (cat "ARCHandler kan gebruikt worden in verschillende talen. Selecteer al "
  436.            "de talen waarin u ARCHandler wilt gebruiken.\n\n"
  437.       )
  438.     )
  439.  
  440.     (set #which-help-language
  441.       (cat "Welke hulp bestanden wilt u installeren?")
  442.     )
  443.  
  444.     (set #which-help-language-help
  445.       (cat "Hulp kan gegeven worden in verschillende talen. Selecteer al de talen "
  446.            "waarin u hulp wilt krijgen.\n\n"
  447.       )
  448.     )
  449.  
  450.     (set #support-dest
  451.       (cat "Waar wilt u de ondersteunings commando's FromARC en ToARC plaatsen?")
  452.     )
  453.  
  454.     (set #support-help
  455.       (cat "De FromARC en ToARC commando's laten u toe om vanuit de Shell direct "
  456.            "naar het ARCHandler bestandensysteem te gaan, of terug.\n\n")
  457.     )
  458.  
  459.     (set #shareware
  460.       (cat "ARCHandler is Shareware!\n"
  461.            "Vergeet niet te registreren!")
  462.     )
  463.   )
  464. )
  465.  
  466. ;================================================================================
  467. ; German strings
  468.  
  469. (if (= pref-language "deutsch")
  470.   (
  471.  
  472.     (set #bad-kick
  473.       (cat "Sie müssen Kickstart 2.04 oder besser haben um ARCHandler zu benutzen!")
  474.     )
  475.  
  476.     (set #install
  477.       (cat "\nARCHandler Installation\n\n\n"
  478.              "Dieses Script installiert ARCHandler " version "\n"
  479.              "auf Ihrem Amiga.\n\n\n"
  480.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  481.              "Alle Rechte vorbehalten"
  482.       )
  483.     )
  484.  
  485.     (set #update
  486.       (cat "\nARCHandler Installation\n\n\n"
  487.              "Dieses Script erneuert ARCHandler auf\n"
  488.              "Version " version ".\n\n\n"
  489.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  490.              "Alle Rechte vorbehalten"
  491.       )
  492.     )
  493.  
  494.     (set #archandler-dest
  495.       (cat "Wo wollen Sie ARCHandler installieren?")
  496.     )
  497.  
  498.     (set #archandler-dest-help
  499.       (cat "Wählen Sie das Verzeichnis, in dem Sie ARCHandler installieren möechten. "
  500.            "Das Programm und einige andere Dateien werden in dieses Verzeichnis kopiert. "
  501.            "Installieren Sie ARCHandler nicht ins Verzeichnis WBStartup (auf Ihrer System-"
  502.            "Partition). Sie werden später noch gefragt, ob Sie ARCHandler starten wollen"
  503.            "wenn die Workbench hochgefahren wird.\n\n"
  504.       )
  505.     )
  506.  
  507.     (set #ask-parts
  508.       (cat "Wählen Sie die Teile aus, die Sie installieren möchten:\n"
  509.            "(Drücken Sie `Help...' für eine ausführliche Erklärung.)"
  510.       )
  511.     )
  512.  
  513.     (set #archandler-part "ARCHandler")
  514.     (set #wbstartup-part "WBStartup Installation")
  515.     (set #catalogs-part "Kataloge")
  516.     (set #help-part "Hilfe Dateien")
  517.     (set #pictures-part "Hilfe Bilder")
  518.     (set #icons-part "Standard Piktogramme")
  519.     (set #support-part "Unterstützende Kommandos")
  520.     (set #delete1x-part "Löschen von 1.x ARCHandler")
  521.  
  522.     (set #ask-parts-help
  523.       (cat "Sie sollten die Teile auswählen, die Sie installieren möchten:\n\n"
  524.            "ARCHandler: dies ist das Hauptprogramm. Wenn Sie bereits ARCHandler "
  525.            "installiert haben kopiert dieses Script nur das Programm, falls Sie "
  526.            "eine ältere Version haben;\n\n"
  527.            "WBStartup Installation: dies installiert ein kleines Programm im "
  528.            "WBStartup-Verzeichnis (auf Ihrer System-Partition). Dieses Programm "
  529.            "startet ARCHandler immer wenn die Workbench gestartet wird (d.h. wenn "
  530.            "Sie Ihren Rechner einschalten);\n\n"
  531.            "Kataloge: dies sind die Übersetzungen von ARCHandler in verschiedene "
  532.            "Sprachen. Sie werden noch gefragt, welche Sprache Sie installieren "
  533.            "möchten;\n\n"
  534.            "Hilfe Dateien: dies sind die Hilfedateien in verschiedene Sprachen. "
  535.            "Wenn Sie die Online-Hilfe nutzen möchten, müssen Sie diese Dateien "
  536.            "installieren! Sie werden noch gefragt, welche Sprache Sie installieren"
  537.            "möchten;\n\n"
  538.            "Hilfe Bilder: diese Bilder können aus den Hilfe-Dateien heraus "
  539.            "betrachtet werden. Sie können nur genutzt werden, wenn Sie MultiView "
  540.            "haben (d.h. Workbench 3.0 oder besser);\n\n"
  541.            "Standard Piktogramme: diese Piktogramme werden von ARCHandler benutzt. "
  542.            "Sie müssen diese Piktogramme nicht installieren. Sie können auch "
  543.            "eigenen Piktogramme verwenden nachdem ARCHandler einmal installiert "
  544.            "ist. Wenn Sie diese Piktogramme installieren, ist es immer noch "
  545.            "möglich sie zu verändern. Wenn Sie ARCHandler erneuern, sollten Sie "
  546.            "diese Piktogramme nicht installieren. Sie würden die Piktogramme die "
  547.            "Sie bereits benutzen überschreiben;\n\n"
  548.            "Unterstütztende Kommandos: dies sind zwei unterstützende Kommados für "
  549.            "ARCHandler: ToARC und FromARC. Diese Kommandos können benutzt werden "
  550.            "um das aktuelle Verzeichnis einer Shell auf das oder von dem "
  551.            "ARCHandler-Laufwerk zu ändern. Diese Kommandos sollten nur "
  552.            "installiert werden wenn Sie das ARCHandler Filesystem in einer Shell "
  553.            "nutzen wollen;\n\n"
  554.            "Löschen von 1.x ARCHandler: dies versucht alle Dateien die in mit "
  555.            "den Versionen 1.0 oder 1.0a von ARCHandler installiert wurden zu "
  556.            "löschen\n\n"
  557.            "Das Installationsscript versucht die voreingestellten Teile "
  558.            "möglichst gut zu treffen. Normalerweise sollten Sie nichts an diesen "
  559.            "Einstellungen ändern müssen.\n\n"
  560.       )
  561.     )
  562.  
  563.     (set #ask-tempdir "Wählen Sie bitte ein Verzeichnis um temporäre Datein zu speichern:")
  564.  
  565.     (set #ask-tempdir-help
  566.       (cat "Damit ARCHandler korrekt arbeiten kann muß er einen Platzt haben um "
  567.            "seine temporäre Datein zwischen zu speichern. Alle Dateien die aus "
  568.            "einem Archiv extrahiert werden, werden in diesem Verzeichnis zwischen- "
  569.            "gespeichert. Dieses Verzeichnis sollte gross genug sein um alle diese "
  570.            "Dateien zu halten. Falls Sie (zu-)viel Speicher haben sollten Sie ein "
  571.            "Verzeichnis auf der 'Ram Disk' benutzen, ansonsten ein Verzeichnis "
  572.            "auf Festplatte.\n\n"
  573.       )
  574.     )
  575.  
  576.     (set #ask-lhacommand "Geben Sie bitte den Pfad des 'LhA' Kommandos an:")
  577.  
  578.     (set #ask-lhacommand-help
  579.       (cat "Damit ARCHandler korrekt arbeiten kann muß er wissen wo er das "
  580.            "'LhA' Kommando finden kann. Wenn Sie einen residenten 'LhA' "
  581.            "(=schnellerer ARCHandler) benutzen wollen, nehmen Sie ein "
  582.            "'Leeres Verzeichnis' Feld und stellen Sie sicher, daß 'LhA' "
  583.            "resident ist.\n\n"
  584.       )
  585.     )
  586.  
  587.     (set #which-catalog-language
  588.       (cat "Welche Sprachen wollen Sie installieren?")
  589.     )
  590.  
  591.     (set #which-catalog-language-help
  592.       (cat "ARCHandler kann in verschiedenen Sprachen benutzt werden. "
  593.            "Wählen Sie all die Sprachen in denen Sie ARCHandler "
  594.            "nutzen wollen.\n\n"
  595.       )
  596.     )
  597.  
  598.     (set #which-help-language
  599.       (cat "Welche Hilfe-Dateien wollen Sie installieren?")
  600.     )
  601.  
  602.     (set #which-help-language-help
  603.       (cat "Die Hilfe kann in verschiedenen Sprachen erfolgen. Wählen "
  604.            "Sie die Sprachen in den Sie die Hilfe wünschen.\n\n"
  605.       )
  606.     )
  607.  
  608.     (set #support-dest
  609.       (cat "Wo wollen Sie die unterstützenden Kommandos FromARC "
  610.            "und ToARC installieren?")
  611.     )
  612.  
  613.     (set #support-help
  614.       (cat "Die Kommandos FromARC und ToARC erlauben es Ihnen das "
  615.            "aktuelle Verzeichnis in der Shell zu wechseln.\n\n"
  616.       )
  617.     )
  618.  
  619.     (set #shareware
  620.       (cat "ARCHandler ist Shareware!\nVergessen Sie nicht sich "
  621.            "zu registrieren!")
  622.     )
  623.   ) 
  624. )
  625.  
  626. ;================================================================================
  627. ; Spanish strings
  628.  
  629. (if (= pref-language "español")
  630.   (
  631.     (set #bad-kick
  632.       (cat "¡Debes tener instalado un Kickstart 2.04 o superior para usar ARCHandler!")
  633.     )
  634.  
  635.     (set #install
  636.       (cat "\nInstalación de ARCHandler\n\n\n"
  637.              "Este script instala ARCHandler " version "\n"
  638.              "en tu Amiga.\n\n\n"
  639.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  640.              "Reservados todos los derechos")
  641.     )
  642.  
  643.     (set #update
  644.       (cat "\nInstalación de ARCHandler\n\n\n"
  645.              "Este script actualiza ARCHandler a\n"
  646.              "la versión " version ".\n\n\n"
  647.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  648.              "Reservados todos los derechos")
  649.     )
  650.  
  651.     (set #archandler-dest
  652.       (cat "¿Donde quieres instalar ARCHandler?")
  653.     )
  654.  
  655.     (set #archandler-dest-help
  656.       (cat "Indica el directorio en el que quieres instalar ARCHandler. "
  657.            "El programa  ARCHandler  se copiará en ese  directorio.  El "
  658.            "script también  creará un directorio  'ARCFiles'  dentro de "
  659.            "ese directorio.\n\n"
  660.       ) ; add something here!
  661.     )
  662.  
  663.     ;(set #ask-parts "")
  664.  
  665.     ;(set #archandler-part "")
  666.     ;(set #wbstartup-part "")
  667.     ;(set #catalogs-part "")
  668.     ;(set #help-part "")
  669.     ;(set #pictures-part "")
  670.     ;(set #icons-part "")
  671.     ;(set #support-part "")
  672.     ;(set #delete1x-part "")
  673.  
  674.     ;(set #ask-parts-help "")
  675.  
  676.     (set #ask-tempdir "Por favor, indica un directorio para los ficheros temporales:")
  677.  
  678.     (set #ask-tempdir-help
  679.       (cat "Para que ARCHandler funcione correctamente  debe tener un lugar donde "
  680.            "guardar sus ficheros temporales.  Todos los ficheros que se extraigan "
  681.            "de los archivos se pondrán en este directorio. El directorio debe ser "
  682.            "lo suficientemente grande como para acoger a todos esos ficheros.  Si "
  683.            "tienes suficiente memoria, deberías usar un directorio en 'Ram Disk', "
  684.            "si no, usa un directorio en disco.\n\n")
  685.     )
  686.  
  687.     (set #ask-lhacommand "Por favor, indica el camino hacia el comando 'LhA':")
  688.  
  689.     (set #ask-lhacommand-help
  690.       (cat "Para que  ARCHandler funcione correctamente  debe saber donde "
  691.            "puede encontrar el comando  'LhA'.  Si quieres usar un  'LhA' "
  692.            "residente (=ARCHandler más rápido) usa un campo 'Dir. Actual' "
  693.            "vacío, y asegúrate de que 'LhA' está residente.\n\n")
  694.     )
  695.  
  696.     (set #which-catalog-language
  697.       (cat "¿Qué idiomas deseas instalar?")
  698.     )
  699.  
  700.     (set #which-catalog-language-help
  701.       (cat "ARCHandler se puede usar en diferentes idiomas. Elige todos los "
  702.            "idiomas que quieras usar en ARCHandler.\n\n"
  703.       )
  704.     )
  705.  
  706.     ;(set #which-help-language "")
  707.  
  708.     ;(set #which-help-language-help "")
  709.  
  710.     (set #support-dest
  711.       (cat "¿Donde quieres instalar los comandos de apoyo FromARC y ToARC?")
  712.     )
  713.  
  714.     (set #support-help
  715.       (cat "Los comandos FromARC y ToARC te permiten cambiar el directorio "
  716.            "actual de un shell.\n\n")
  717.     )
  718.  
  719.     (set #shareware
  720.       (cat "ARCHandler es Shareware!\n¡No te olvides de registrarte!")
  721.     )
  722.   )
  723. )
  724.  
  725. ;================================================================================
  726. ; Swedish strings
  727.  
  728. (if (= pref-language "svenska")
  729.   (
  730.     (set #bad-kick
  731.       (cat "Du måste använda Kickstart 2.04+ för att installera ARCHandler")
  732.     )
  733.  
  734.     (set #install
  735.       (cat
  736.         "\nARCHandler-installation\n\n\n"
  737.         "Det här programmet installerar ARCHandler " version "\n"
  738.         "i din Amiga.\n\n\n"
  739.         "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  740.         "Alla rättigheter reserverade"
  741.       )
  742.     )
  743.  
  744.     (set #update
  745.       (cat
  746.         "\nARCHandler-installation\n\n\n"
  747.         "Det här programmet uppdaterar ARCHandler\n"
  748.         "till version " version ".\n\n\n"
  749.         "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  750.         "Alla rättigheter reserverade"
  751.       )
  752.     )
  753.  
  754.     (set #archandler-dest "Var vill du placera?")
  755.  
  756.     (set #archandler-dest-help
  757.       (cat
  758.         "Välj den låda du vill placera ARCHandler i. "
  759.         "ARCHandler-programmet kommer att kopieras till den här lådan. "
  760.         "Installationsprogrammet kommer också att skapa lådan 'ARCFiles' i "
  761.         "den här lådan.\n\n"
  762.       ) ; add something here
  763.     )
  764.  
  765.     ;(set #ask-parts "")
  766.  
  767.     ;(set #archandler-part "")
  768.     ;(set #wbstartup-part "")
  769.     ;(set #catalogs-part "")
  770.     ;(set #help-part "")
  771.     ;(set #pictures-part "")
  772.     ;(set #icons-part "")
  773.     ;(set #support-part "")
  774.     ;(set #delete1x-part "")
  775.  
  776.     ;(set #ask-parts-help "")
  777.  
  778.     (set #ask-tempdir "Välj en låda att lagra temporära filer i:")
  779.  
  780.     (set #ask-tempdir-help
  781.       (cat
  782.         "För att ARCHandler ska fungera korrekt så måste den ha ett ställe "
  783.         "att lagra sina temporära filer i. Alla filer som packas upp från "
  784.         "arkivet placeras i den här lådan. Den bör vara stor nog för att "
  785.         "kunna hålla alla dessa filer. Om du har mycket RAM-minne bör du använda "
  786.         "en låda på ramdisken, använd annars en låda på disk.\n\n"
  787.       )
  788.     )
  789.  
  790.     (set #ask-lhacommand "Ange sökvägen till LhA-kommandot:")
  791.  
  792.     (set #ask-lhacommand-help
  793.       (cat
  794.         "För att ARCHandler ska fungera korrekt så måste den veta var "
  795.         "LhA-kommandot finns. Om du vill använda en resident kopia av LhA "
  796.         "(= snabbare ARCHandler), så ange en tom 'aktuell låda', och se "
  797.         "till att LhA är resident.\n\n"
  798.       )
  799.     )
  800.  
  801.     ;(set #which-catalog-language "")
  802.  
  803.     ;(set #which-catalog-language-help "")
  804.  
  805.     ;(set #which-help-language "")
  806.  
  807.     ;(set #which-help-language-help "")
  808.  
  809.     (set #support-dest
  810.       (cat "Var vill du installera de extra kommandona FromARC och ToARC?")
  811.     )
  812.  
  813.     (set #support-help
  814.       "Kommandona FromARC och ToARC låter dig ändra ett skals aktuella låda.\n\n"
  815.     )
  816.  
  817.     (set #shareware
  818.       (cat
  819.         "ARCHAndler är shareware!\nGlöm inte att registrera!"
  820.       )
  821.     )
  822.   )
  823. )
  824.  
  825. ;================================================================================
  826. ; check Kickstart and Workbench
  827.  
  828. (if (< (/ (getversion) 65536) 37)
  829.   (
  830.     (abort #bad-kick)
  831.   )
  832. )
  833. (set wbversion (/ (getversion "version.library") 65536))
  834.  
  835. ;================================================================================
  836. ; Hi there...
  837.  
  838. ; try to find ARCHandler
  839. (user 0)
  840. (run 'SetEnv archandlerpath "`C/FindCommand ARCHandler`"'
  841.   (safe)
  842. )
  843. (set archandler-dest (pathonly (getenv "archandlerpath")))
  844. (run 'UnSetEnv archandlerpath'
  845.   (safe)
  846. )
  847.  
  848. ; install or update?
  849. (user 1)
  850. (if (= archandler-dest "")
  851.   (
  852.     (message #install "\n\n" #shareware)
  853.     (set update 0)
  854.   )
  855.   (
  856.     (message #update "\n\n" #shareware)
  857.     (set update 1)
  858.   )
  859. )
  860. (welcome)
  861. (set old-user-level @user-level)
  862.  
  863. ;================================================================================
  864. ; Ask questions
  865.  
  866. (complete 0)
  867.  
  868. ; find destination
  869. (if (not update)
  870.   (
  871.     (user 2)
  872.     (set archandler-dest
  873.       (askdir
  874.         (prompt #archandler-dest)
  875.         (help #archandler-dest-help @askdir-help)
  876.         (default @default-dest)
  877.       )
  878.     )
  879.     (user old-user-level)
  880.     (if (= (exists (tackon archandler-dest "ARCHandler") (noreq)) 1)
  881.       (set update 1)
  882.     )
  883.   )
  884. )
  885.  
  886. (complete 5)
  887.  
  888. ; try to find support commands
  889. (user 0)
  890. (run 'SetEnv supportpath "`C/FindCommand FromARC`"'
  891.   (safe)
  892. )
  893. (set support-dest (pathonly (getenv "supportpath")))
  894. (run 'UnSetEnv supportpath'
  895.   (safe)
  896. )
  897. ;(user old-user-level)
  898.  
  899. ; try to find old support command
  900. ;(user 0)
  901. (run 'SetEnv flusharcpath "`C/FindCommand FlushARC`"'
  902.   (safe)
  903. )
  904. (set flusharc-dir (pathonly (getenv "flusharcpath")))
  905. (run 'UnSetEnv flusharcpath'
  906.   (safe)
  907. )
  908. (user old-user-level)
  909.  
  910. (complete 10)
  911.  
  912. ; select parts to install
  913. (set default-parts (+ 1 8))
  914. (if (exists "SYS:WbStartup/StartARC" (noreq))
  915.   (set default-parts (bitor default-parts 2))
  916. )
  917. (if (and (<= wbversion 38) (exists "LOCALE:"))
  918.   (set default-parts (bitor default-parts 4))
  919. )
  920. (if (<= wbversion 39)
  921.   (set default-parts (bitor default-parts 16))
  922. )
  923. (if (not update)
  924.   (set default-parts (bitor default-parts 32))
  925. )
  926. (if (<> support-dest "")
  927.   (set default-parts (bitor default-parts 64))
  928. )
  929. (if (or (exists "L:arc-handler") (<> flusharc-dir ""))
  930.   (set default-parts (bitor default-parts 128))
  931. )
  932. (set parts
  933.   (askoptions
  934.     (prompt #ask-parts)
  935.     (help #ask-parts-help @askoptions-help)
  936.     (choices
  937.       #archandler-part
  938.       #wbstartup-part
  939.       #catalogs-part
  940.       #help-part
  941.       #pictures-part
  942.     )
  943.     (default default-parts)
  944.   )
  945. )
  946. (set parts2
  947.   (askoptions
  948.     (prompt #ask-parts)
  949.     (help #ask-parts-help @askoptions-help)
  950.     (choices
  951.       #icons-part
  952.       #support-part
  953.       #delete1x-part
  954.     )
  955.     (default (/ default-parts 32))
  956.   )
  957. )
  958. (set parts (+ parts (* parts2 32)))
  959.  
  960. (complete 15)
  961.  
  962. ; select directory for temporary files
  963. (if (and (not update) (bitand parts 1))
  964.   (set tempdir
  965.     (askdir
  966.       (prompt #ask-tempdir)
  967.       (help #ask-tempdir-help @askdir-help)
  968.       (default @default-tempdir)
  969.     )
  970.   )
  971. )
  972.  
  973. (complete 20)
  974.  
  975. ; select lha command
  976. (if (and (not update) (bitand parts 1))
  977.   (
  978.     (user 0)
  979.     (run 'SetEnv lhapath "`C/FindCommand LhA`"'
  980.       (safe)
  981.     )
  982.     (set lhapath (getenv "lhapath"))
  983.     (run 'UnSetEnv lhapath'
  984.       (safe)
  985.     )
  986.     (if (= lhapath "")
  987.       (
  988.         (user 2)
  989.         (set lhapath
  990.           (askdir
  991.             (prompt #ask-lhacommand)
  992.             (help #ask-lhacommand-help @askdir-help)
  993.             (default "C:")
  994.           )
  995.         )
  996.         (set lhapath (tackon lhapath "LhA"))
  997.       )
  998.     )
  999.     (user old-user-level)
  1000.   )
  1001. )
  1002.  
  1003. (complete 25)
  1004.  
  1005. ; select catalog languages to install
  1006. (if (bitand parts 4)
  1007.   (
  1008.     ; default language
  1009.     (set n 0)
  1010.     (set m 1)
  1011.     (set default-catalog-languages 2)
  1012.     (while
  1013.       (set catalog-language
  1014.         (select n
  1015.           "deutsch"
  1016.           "english"
  1017.           "español"
  1018.           "français"
  1019.           "italiano"
  1020.           "nederlands"
  1021.           "português"
  1022.           "svenska"
  1023.           ""
  1024.         )
  1025.       )
  1026.       (
  1027.         (if (= catalog-language pref-language)
  1028.           (set default-catalog-languages m)
  1029.         )
  1030.         (set n (+ n 1))
  1031.         (set m (+ m m))
  1032.       )
  1033.     )
  1034.  
  1035.     ; select languages
  1036.     (set catalog-languages
  1037.       (askoptions
  1038.         (prompt #which-catalog-language)
  1039.         (help #which-catalog-language-help @askoptions-help)
  1040.         (choices
  1041.           "Deutsch"
  1042.           "English"
  1043.           "Español"
  1044.           "Français"
  1045.           "Italiano"
  1046.           "Nederlands"
  1047.           "Português"
  1048.           "Svenska"
  1049.         )
  1050.         (default default-catalog-languages)
  1051.       )
  1052.     )
  1053.   )
  1054. )
  1055.  
  1056. (complete 30)
  1057.  
  1058. ; select help languages to install
  1059. (if (bitand parts 8)
  1060.   (
  1061.     ; default language
  1062.     (set n 0)
  1063.     (set m 1)
  1064.     (set default-help-languages 1)
  1065.     (while
  1066.       (set help-language
  1067.         (select n
  1068.           "english"
  1069.           ""
  1070.         )
  1071.       )
  1072.       (
  1073.         (if (= help-language pref-language)
  1074.           (set default-help-languages m)
  1075.         )
  1076.         (set n (+ n 1))
  1077.         (set m (+ m m))
  1078.       )
  1079.     )
  1080.  
  1081.     ; select languages
  1082.     (set help-languages
  1083.       (askoptions
  1084.         (prompt #which-help-language)
  1085.         (help #which-help-language-help @askoptions-help)
  1086.         (choices
  1087.           "English"
  1088.         )
  1089.         (default default-help-languages)
  1090.       )
  1091.     )
  1092.   )
  1093. )
  1094.  
  1095. (complete 35)
  1096.  
  1097. ; where do the support commands go?
  1098. (if (bitand parts 64)
  1099.   (
  1100.     (if (= support-dest "")
  1101.       (
  1102.         (user 2)
  1103.         (set support-dest
  1104.           (askdir
  1105.             (prompt #support-dest)
  1106.             (help #support-help @askdir-help)
  1107.             (default @default-support-dest)
  1108.           )
  1109.         )
  1110.         (user old-user-level)
  1111.       )
  1112.     )
  1113.   )
  1114. )
  1115.  
  1116. (complete 40)
  1117.  
  1118. ;================================================================================
  1119. ; Install everything
  1120.  
  1121. ; program
  1122. (if (bitand parts 1)
  1123.   (
  1124.     (copylib
  1125.       (source archandler-src)
  1126.       (dest archandler-dest)
  1127.     )
  1128.  
  1129.     ; it's icon
  1130.     (if (not update)
  1131.       (
  1132.         (copyfiles
  1133.           (source archandlericon-src)
  1134.           (dest archandler-dest)
  1135.         )
  1136.         (tooltype
  1137.           (dest (tackon archandler-dest "ARCHandler"))
  1138.           (settooltype "LHACOMMAND" lhapath)
  1139.           (settooltype "(LHACOMMAND")
  1140.           (settooltype "FILESDIR" (tackon archandler-dest "ARCFiles"))
  1141.           (settooltype "(FILESDIR")
  1142.           (settooltype "TEMPDIR" tempdir)
  1143.           (settooltype "(TEMPDIR")
  1144.  
  1145.           ; Try to remove NewIcons: if NewIcons is installed these won't be found.
  1146.           (settooltype "*** DON'T EDIT THE FOLLOWING LINES!! ***")
  1147.           (settooltype "IM1")
  1148.           (settooltype "IM1")
  1149.           (settooltype "IM1")
  1150.           (settooltype "IM1")
  1151.           (settooltype "IM2")
  1152.           (settooltype "IM2")
  1153.           (settooltype "IM2")
  1154.           (settooltype "IM2")
  1155.           (settooltype "IM2")
  1156.           (settooltype "IM2")
  1157.           (noposition)
  1158.         )
  1159.       )
  1160.     )
  1161.   )
  1162. )
  1163.  
  1164. (complete 50)
  1165.  
  1166. ; launcher
  1167. (if (bitand parts 2)
  1168.   (
  1169.     ; WbStartup drawer
  1170.     (makedir "SYS:WbStartup"
  1171.       (infos)
  1172.     )
  1173.  
  1174.     ; launcher
  1175.     (copylib
  1176.       (source startarc-src)
  1177.       (dest "SYS:WbStartup")
  1178.     )
  1179.  
  1180.     ; launcher icon
  1181.     (if (not (bitand default-parts 2))
  1182.       (
  1183.         (copyfiles
  1184.           (source startarcicon-src)
  1185.           (dest "SYS:WbStartup")
  1186.         )
  1187.         (tooltype
  1188.           (dest "SYS:WbStartup/StartARC")
  1189.           (settooltype "PROGRAM" (tackon archandler-dest "ARCHandler"))
  1190.           (settooltype "(PROGRAM")
  1191.           (noposition)
  1192.         )
  1193.       )
  1194.     )
  1195.   )
  1196. )
  1197.  
  1198. (complete 60)
  1199.  
  1200. ; files dir
  1201. (if (bitand parts 33)
  1202.   (
  1203.     (set arcfiles-dest (tackon archandler-dest "ARCFiles"))
  1204.     (makedir arcfiles-dest)
  1205.  
  1206.     ; default icons
  1207.     (if (bitand parts 32)
  1208.       (copyfiles
  1209.         (source arcfiles-src)
  1210.         (dest arcfiles-dest)
  1211.         (all)
  1212.       )
  1213.     )
  1214.   )
  1215. )
  1216.  
  1217. (complete 65)
  1218.  
  1219. ; catalogs
  1220. (if (bitand parts 4)
  1221.   (
  1222.     ; catalog directory
  1223.     (makedir "LOCALE:Catalogs")
  1224.  
  1225.     ; catalogs
  1226.     (set n 0)
  1227.     (while
  1228.       (set catalog-language
  1229.         (select n
  1230.           "deutsch"
  1231.           "english"
  1232.           "español"
  1233.           "français"
  1234.           "italiano"
  1235.           "nederlands"
  1236.           "português"
  1237.           "svenska"
  1238.           ""
  1239.         )
  1240.       )
  1241.       (
  1242.         (if (and (in catalog-languages n) (<> "english" catalog-language))
  1243.           (
  1244.             (copyfiles
  1245.               (source catalog-src)
  1246.               (dest "LOCALE:Catalogs/")
  1247.               (pattern catalog-language)
  1248.             )
  1249.           )
  1250.         )
  1251.         (set n (+ n 1))
  1252.       )
  1253.     )
  1254.   )
  1255. )
  1256.  
  1257. (complete 75)
  1258.  
  1259. ; help
  1260. (if (bitand parts 24)
  1261.   (
  1262.     ; help directory
  1263.     (set help-dest (tackon archandler-dest "Help"))
  1264.     (makedir help-dest
  1265.       (infos)
  1266.     )
  1267.  
  1268.     ; help files
  1269.     (if (bitand parts 8)
  1270.       (
  1271.         (set n 0)
  1272.         (while
  1273.           (set help-language
  1274.             (select n
  1275.               "english"
  1276.               ""
  1277.             )
  1278.           )
  1279.           (
  1280.             (if (in help-languages n)
  1281.               (
  1282.                 (makedir (tackon help-dest help-language)
  1283.                   (infos)
  1284.                 )
  1285.                 (copyfiles
  1286.                   (source help-src)
  1287.                   (dest help-dest)
  1288.                   (pattern help-language)
  1289.                 )
  1290.                 (tooltype
  1291.                   (dest (tackon (tackon help-dest help-language) "ARCHandler.guide"))
  1292.                   (if (<= wbversion 39)
  1293.                     (setdefaulttool "MultiView")
  1294.                     (setdefaulttool "AmigaGuide")
  1295.                   )
  1296.                   (noposition)
  1297.                 )
  1298.               )
  1299.             )
  1300.             (set n (+ n 1))
  1301.           )
  1302.         )
  1303.       )
  1304.     )
  1305.  
  1306.     (complete 85)
  1307.  
  1308.     ; help pictures
  1309.     (if (bitand parts 16)
  1310.       (copyfiles
  1311.         (source (tackon help-src "Pictures"))
  1312.         (dest (tackon help-dest "Pictures"))
  1313.         (all)
  1314.       )
  1315.     )
  1316.   )
  1317. )
  1318.  
  1319. (complete 90)
  1320.  
  1321. ; support commands
  1322. (if (bitand parts 64)
  1323.   (
  1324.     (copylib
  1325.       (source fromarc-src)
  1326.       (dest support-dest)
  1327.     )
  1328.     (copylib
  1329.       (source toarc-src)
  1330.       (dest support-dest)
  1331.     )
  1332.   )
  1333. )
  1334.  
  1335. (complete 98)
  1336.  
  1337. ; delete 1.x archandler
  1338. (if (bitand parts 128)
  1339.   (
  1340.     (delete "L:arc-handler")
  1341.     (delete (tackon flusharc-dir "FlushARC"))
  1342.     (delete "DEVS:DOSDrivers/ARC")
  1343.     (delete "DEVS:DOSDrivers/ARC.info")
  1344.     (delete "SYS:Storage/DOSDrivers/ARC")
  1345.     (delete "SYS:Storage/DOSDrivers/ARC.info")
  1346.   )
  1347. )
  1348.  
  1349. (complete 100)
  1350.  
  1351. ;================================================================================
  1352. ; Goodbye...
  1353.  
  1354. (set @default-dest archandler-dest)
  1355. (exit "\n" #shareware)
  1356.